home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / SCAN.ICN < prev    next >
Text File  |  1990-03-28  |  3KB  |  60 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write(" ----> ",image() | "none")
  5.    write("every write((\"badc\" | \"edgf\" | \"x\") ? write(upto(!&lcase))) ----> ",image(every write(("badc" | "edgf" | "x") ? write(upto(!&lcase)))) | "none")
  6.    write("every write(((\"aeiou\" | \"foobaz\") ? upto('dracula')) ? =(1 to 10)) ----> ",image(every write((("aeiou" | "foobaz") ? upto('dracula')) ? =(1 to 10))) | "none")
  7.    write("every write((1 to 10) ? move(1)) ----> ",image(every write((1 to 10) ? move(1))) | "none")
  8.    write("&subject := &pos ----> ",image(&subject := &pos) | "none")
  9.    write("&pos :=: &subject ----> ",image(&pos :=: &subject) | "none")
  10.    write("&pos ----> ",image(&pos) | "none")
  11.    write("&subject ----> ",image(&subject) | "none")
  12.    write("+1 ----> ",image(+1) | "none")
  13.    write("-1 ----> ",image(-1) | "none")
  14. end
  15.  
  16. procedure p2()
  17.    write("?10 ----> ",image(?10) | "none")
  18.    write("?10 ----> ",image(?10) | "none")
  19.    write("?10 ----> ",image(?10) | "none")
  20.    write("~&cset ----> ",image(~&cset) | "none")
  21.    write("~&ascii ----> ",image(~&ascii) | "none")
  22.    write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
  23.    write("=\"a\" ----> ",image(="a") | "none")
  24.    write("=\"b\" ----> ",image(="b") | "none")
  25.    write("=\"d\" ----> ",image(="d") | "none")
  26.    write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
  27. end
  28.  
  29. procedure p3()
  30.    write("while write(move(1)) ----> ",image(while write(move(1))) | "none")
  31.    write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
  32.    write("every write(tab(1 to 10)) ----> ",image(every write(tab(1 to 10))) | "none")
  33.    write("pos(0) ----> ",image(pos(0)) | "none")
  34.    write("pos(15) ----> ",image(pos(15)) | "none")
  35.    write("&subject := string(&lcase) ----> ",image(&subject := string(&lcase)) | "none")
  36.    write("pos(1) ----> ",image(pos(1)) | "none")
  37.    write("every write(\"abcdef\" ? tab(1 to 10)) ----> ",image(every write("abcdef" ? tab(1 to 10))) | "none")
  38.    write("every write(\"abcde\" ? while move(2) ? move(1)) ----> ",image(every write("abcde" ? while move(2) ? move(1))) | "none")
  39.    write("s := \"abcdef\" ----> ",image(s := "abcdef") | "none")
  40.    write("s ?:= move(3) ----> ",image(s ?:= move(3)) | "none")
  41. end
  42.  
  43. procedure p4()
  44.    write("s := \"abcdef\" ----> ",image(s := "abcdef") | "none")
  45.    write("every write(s ?:= upto(&lcase)) ----> ",image(every write(s ?:= upto(&lcase))) | "none")
  46.    write("s := \"this is the time to work it all out\" ----> ",image(s := "this is the time to work it all out") | "none")
  47.    write("every write(s ? tab(find(\" \"))) ----> ",image(every write(s ? tab(find(" ")))) | "none")
  48.    write("s := \"xxxxxx\" ----> ",image(s := "xxxxxx") | "none")
  49.    write("every s ? write(=(\"a\" | \"x\")) ----> ",image(every s ? write(=("a" | "x"))) | "none")
  50.    write("\"abcdef\" ? (tab(0) & (while write(move(-1)))) ----> ",image("abcdef" ? (tab(0) & (while write(move(-1))))) | "none")
  51. end
  52.  
  53. procedure main()
  54.    p1()
  55.    p2()
  56.    p3()
  57.    p4()
  58. end
  59.  
  60.